Private Const DTS_UPDOWN = &H1& '// use UPDOWN instead of MONTHCAL
Private Const DTS_SHOWNONE = &H2& '// allow a NONE selection
Private Const DTS_SHORTDATEFORMAT = &H0& '// use the short date format (app must forward WM_WININICHANGE messages)
Private Const DTS_LONGDATEFORMAT = &H4& '// use the long date format (app must forward WM_WININICHANGE messages)
Private Const DTS_TIMEFORMAT = &H9& '// use the time format (app must forward WM_WININICHANGE messages)
Private Const DTS_APPCANPARSE = &H10& '// allow user entered strings (app MUST respond to DTN_USERSTRING)
Private Const DTS_RIGHTALIGN = &H20& '// right-align popup instead of left-align it
'
Private Const MCSC_TEXT = 1& ' // the dates
Private Const MCSC_TITLEBK = 2& ' // background of the title and the text day names
Private Const MCSC_TITLETEXT = 3& ' // text of the date string in the title
Private Const MCSC_MONTHBK = 4& ' // background within the month cal
Private Const MCSC_TRAILINGTEXT = 5& ' // the text color of header & trailing days
'
Private Type ICCE
lSize As Long
lICC As Long
End Type
'
Private Declare Function InitCommonControlsEx Lib "Comctl32.dll" (iccex As ICCE) As Boolean
Private Declare Function CreateWindowEX Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
